Secrets of Stargate/STARGATE.iso/mac/STARGATE (5MB Macintosh)/STARGATE (5MB Macintosh).DXR/00125.ls

Text File | 1994-10-19 | 1.1 KB | 49 lines

on idle
end

on exitFrame
  go(the frame)
end

on enterFrame
  global gOnPC, put, gSysVol, gMovieStartMod
  if the pauseState = 0 then
    set the visible of sprite 35 to 1
    set the puppet of sprite 35 to 1
    stopCursor()
    set the volume of sprite 35 to gSysVol
    preRollMov(35)
    set earlyExit to 0
    set cont to 1
    repeat while cont
      set the movieRate of sprite 35 to 1
      updateStage()
      if the movieRate of sprite 35 > 0 then
        exit repeat
      end if
    end repeat
    repeat while the movieRate of sprite 35 > 0
      if the mouseDown = 1 then
        set the movieRate of sprite 35 to 0
        set earlyExit to 1
        exit repeat
      end if
      updateStage()
    end repeat
    set the movieRate of sprite 35 to 0
    set the visible of sprite 35 to 0
    set the puppet of sprite 35 to 0
    if earlyExit then
      spinCursor()
      dissolveEffect()
      go("Intro4")
    else
      spinCursor()
      dissolveEffect()
      puppetPalette(the framePalette)
      go("Intro3")
      puppetPalette(0)
    end if
  end if
end